home *** CD-ROM | disk | FTP | other *** search
/ PC Home 49 / PC_Home_Issue_49.iso / lldemo / lldemo.shr / ROSETTA.EXE / ROSETTA.DXR / 00568_string manipulation.ls < prev    next >
Encoding:
Text File  |  1996-06-24  |  860 b   |  37 lines
  1. on stringToList aString, delimiter, checkSum
  2.   set oldDelimiter to the itemDelimiter
  3.   set the itemDelimiter to delimiter
  4.   set n to the number of items in aString
  5.   set aList to []
  6.   repeat with i = 1 to n
  7.     add(aList, item i of aString)
  8.   end repeat
  9.   set the itemDelimiter to oldDelimiter
  10.   return value(string(aList))
  11. end
  12.  
  13. on propToString aList, delimiter
  14.   set n to count(aList)
  15.   set aString to EMPTY
  16.   set aString to getAt(aList, 1)
  17.   repeat with i = 2 to n
  18.     put delimiter & getAt(aList, i) after aString
  19.   end repeat
  20.   return aString
  21. end
  22.  
  23. on upperCase aString
  24.   set aRet to EMPTY
  25.   set l to length(aString)
  26.   repeat with i = 1 to l
  27.     set c to char i of aString
  28.     set ch to charToNum(c)
  29.     if (ch < 97) or (ch > 122) then
  30.       put c after aRet
  31.       next repeat
  32.     end if
  33.     put numToChar(ch - 32) after aRet
  34.   end repeat
  35.   return aRet
  36. end
  37.